home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 80
/
64er_Magazin_Sonderheft_80_19xx_Markt__Technik_de_Side_B.d64
/
dok a.ue.geos 2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
2KB
|
36 lines
1 poke53280,0:poke53281,0
2 printchr$(14)"[147]"tab(15)"[194]amdok 13"tab(97)"von"tab(49)"[200]ans-[202]uergen [218]iethmann"
3 print"[194]itte defekte [193]lles ueber [199]eos [211]eite 2"tab(80)"in das [204]aufwerk legen"
4 print"und eine [212]aste druecken":wait203,64,64:open1,8,15,"i":open2,8,2,"#"
5 print#1,"u1:"2;0;10;5:print#1,"b-p"2;20:get#2,a$:a=asc(a$+chr$(0))
6 ifa<>0thenprint"[147]nicht auf dieser [196]isk anwendbar!":close2:close1:end
7 readn:ifn<0then9
8 print#1,"m-w"chr$(lb)chr$(05)chr$(1)chr$(n):lb=lb+1:goto7
9 on abs(n) goto10,11,14
10 read lb:goto 7
11 if si=1 thenprint#1,"u2:";2;0;t;s
12 read t: read s
13 print#1,"u1:";2;0;t;s:si=1:goto7
14 print#1,"u2:";2;0;t;s:print#1,"i"
15 close2:close1:print"[193]lles ueber [199]eos 2 nun wieder"tab(80)"verwendbar!"
16 data-2,18,0,-1,0,18,1,65,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
17 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
18 data0,0,0,0,0,0,0,0,17,252,255,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
19 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16,255
20 data191,1,17,255,255,1,17,255,255,1,17,255,255,1,71,69,79,83,32,50,46
21 data48,32,68,69,77,79,160,160,160,160,160,72,76,38,70,77,160,160,160,160
22 data19,8,71,69,79,83,32,102,111,114,109,97,116,32,86,49,46,48,0,0,0,0,0,0,0
23 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
24 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-2,18,1,-1,0,0,255
25 data130,19,17,68,69,77,79,160,160,160,160,160,160,160,160,160,160,160,160,19
26 data9,0,12,88,5,23,11,13,2,0,0,0,194,19,15,68,69,77,79,32,66,79,79,84,160
27 data160,160,160,160,160,160,19,7,0,12,88,10,17,13,0,6,0,0,0,195,19,0,68,69
28 data77,79,32,75,69,82,78,65,76,160,160,160,160,160,19,11,1,12,88,10,17,13
29 data0,86,0,0,0,195,1,16,71,69,79,83,32,68,69,77,79,160,160,160,160,160,160
30 data160,1,8,1,6,89,2,22,13,0,246,1,0,0,0,28,2,80,114,105,110,116,101,114
31 data67,114,101,97,116,160,160,160,160,28,13,0,6,88,6,20,21,42,18,0,0,0,0,29
32 data4,78,76,49,48,113,117,97,100,46,101,105,110,115,160,160,160,29,15,0
33 data9,88,6,7,20,25,4,0,0,0,0,29,5,78,76,49,48,113,117,97,100,46,122,119,101
34 data105,160,160,160,29,16,0,9,86,10,21,13,2,4,0,0,0,0,29,6,78,76,49,48,113
35 data117,97,100,46,118,105,101,114,160,160,160,29,17,0,9,86,10,21,13,2,4,-3